unit uLoginForm;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Edit,
  FMX.StdCtrls;

type
  TfrmLogin = class(TForm)
    btnRegister: TButton;
    btnLogin: TButton;
    lblUserName: TLabel;
    lbl2: TLabel;
    edt_UserName: TEdit;
    edtPassWord: TEdit;
    procedure btnLoginClick(Sender: TObject);
    procedure btnRegisterClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation
uses uMainForm,uRegisterForm;

procedure TfrmLogin.btnLoginClick(Sender: TObject);
begin
  frmMain := TfrmMain.Create(nil);
  frmMain.Show;
end;

procedure TfrmLogin.btnRegisterClick(Sender: TObject);
begin
  frmRegister := TfrmRegister.Create(nil);
//  try
//    With frmRegister do begin
//      if ShowModal = mrOk then
//
//    end;
//
//  finally
//    FreeAndNil(frmRegister);
//  end;
  // TODO -cMM: TfrmLogin.btnRegisterClick default body inserted
  frmRegister.Show;
end;

{$R *.fmx}

end.
